home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / strdct.zip / GETREGS.ASM next >
Assembly Source File  |  1990-04-04  |  1KB  |  47 lines
  1. ;   Program ...:  Getregs.ASM
  2. ;   Author ....:  Erik A McBeth
  3. ;   Date ......:  February 1, 1990
  4. ;                 April 4, 1990
  5. ;   Version ...:  dBASE III Plus 1.0, 1.1
  6. ;                 dBASE IV 1.0, 1.1
  7. ;                 (Tested assemblers)
  8. ;                 TASM 1.0
  9. ;                 MASM 5.1
  10. ;
  11. ;  File loads up global variables with the values of the actual
  12. ;  memory registers.
  13.  
  14. _DATA   SEGMENT PUBLIC 'DATA'
  15.  
  16. EXTRN    _BX:WORD      ; These variables are in 'C' file
  17. EXTRN    _CX:WORD
  18. EXTRN    _ES:WORD
  19. EXTRN    _DI:WORD
  20. EXTRN    _DS:WORD
  21.  
  22. PUBLIC __acrtused,__chkstk  ; Put this in to fool Microsoft C
  23. __acrtused = 9876h
  24. __chkstk   = 0
  25. _DATA   ENDS
  26. DGROUP  GROUP _DATA
  27.  
  28. _TEXT   SEGMENT PUBLIC 'CODE'
  29. ASSUME CS:_TEXT,DS:DGROUP,ES:DGROUP,SS:DGROUP
  30.  
  31. PUBLIC  _Getregs
  32. _Getregs PROC    NEAR
  33.          MOV     _BX,BX
  34.          MOV     _CX,CX
  35.          MOV     _ES,ES
  36.          MOV     _DI,DI
  37.          MOV     _DS,DS
  38.          RET
  39. _Getregs ENDP
  40.  
  41. _TEXT    ENDS
  42. CGROUP  GROUP    _TEXT
  43. END
  44.  
  45.  
  46.  
  47.